(encoded-kbd-setup-keymap): Fix for big5.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 83e6609c2d0eafa331969c23ca481599dbe9216f..5695865b006d4263802ac9cd4eb46b3d4e003c58 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2009-05-08  Kenichi Handa  <handa@m17n.org>
+
+       * international/encoded-kb.el (encoded-kbd-setup-keymap): Fix for
+       big5.
+
+       * international/mule-diag.el (describe-coding-system): Fix for
+       big5.
+
 2009-05-07  Martin Rudalics  <rudalics@gmx.at>
 
        * window.el (split-window-sensibly): New function.

diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el
index 4bd6231363f56abaccc34eef864fe0b8aae082bb..a2efd390fc600b361a8291d1ee5bf6d53f21f663 100644 (file)
--- a/lisp/international/encoded-kb.el
+++ b/lisp/international/encoded-kb.el
@@ -262,6 +262,14 @@ The following key sequence may cause multilingual text insertion."
        (setq i (1+ i))))
     8)
 
+   ((eq (coding-system-type coding) 'big5)
+    (let ((i 128))
+      (while (< i 256)
+       (define-key keymap
+         (vector i) 'encoded-kbd-self-insert-big5)
+       (setq i (1+ i))))
+    8)
+
    ((eq (coding-system-type coding) 'charset)
     (dolist (elt (mapcar
                  #'(lambda (x)